-- file: ch07/basicio.hs
{-# LANGUAGE TemplateHaskell #-}
module Ch7.Basicio where
import MyTools.MyMacros

te1 :: IO ()
te1 = do
  $(_myLoc)
  putStrLn "Greetings!  What is your name?"
-- inpStr <- getLine
  let inpStr = "Tom"
  putStrLn $ "Welcome to Haskell, " ++ inpStr ++ "!"